home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 209 / 209.d81 / f7 apostrophe (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  642b  |  19 lines
  1. 0 ifa=1then1000
  2. 10 poke53280,.:poke53281,.
  3. 100 rem 64 f7 apostrophe - brian evans
  4. 110 rem makes 64's f7 key print an apos
  5. 120 forj=50060toj+36:readk:pokej,k:next
  6. 130 sys50060:a=1
  7. 140 data 120,162,153,160,195,142
  8. 150 data 020,003,140,021,003,088
  9. 160 data 096,072,138,072,152,072
  10. 170 data 165,215,201,136,208,005
  11. 180 data 169,039,032,210,255,104
  12. 190 data 168,104,170,104,076,049
  13. 200 data 234,000,000,000,000,000
  14. 250 print"[147][154]your f7 [154]key has been redefined!"
  15. 300 print"[154]enter goto tips [154]to return":print"to tips and tricks menu":end
  16. 1000 d=peek(186):print"[147][144]load"chr$(34)"b.tips and trick"chr$(34)",8"
  17. 1010 print"run":poke631,13:poke632,13:poke198,2:end
  18. 10000 d=peek(186):n$="f7 apostrophe":open15,d,15,"s0:"+n$:close15:saven$,d:end
  19.